home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 133 / 133.d81 / snapshot loader (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  282b  |  7 lines
  1. 60000 a$="your program":fori=8to10:close2:open2,i,2:close2:ifstthen60020
  2. 60010 close15:open15,i,15,"r"+a$+"="+a$:input#15,er:close15:ifer=63then60030
  3. 60020 next:print"[147]":poke186,8:end
  4. 60030 q$=chr$(34):poke646,peek(53281):print"[147]"
  5. 60040 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  6. 60050 print"sys65418:run:":poke631,13:poke632,13:poke198,2:end
  7.